unit frmAbout ;

interface

uses
   Classes,
   Graphics,
   Controls,
   Forms,
   StdCtrls,
   ExtCtrls,
   ComCtrls,
    PJVersionInfo ;

type
   TdlgAbout = class( TForm )
      Image1 : TImage ;
      OKButton : TButton ;
      RichEditAbout : TRichEdit ;
      PJVersionInfo : TPJVersionInfo ;
      procedure OKButtonClick( Sender : TObject ) ;
      procedure FormCreate( Sender : TObject ) ;
   private
      { Private declarations }
   public
      { Public declarations }
   end ;

implementation

uses uBasic ;

{$R *.DFM}

procedure TdlgAbout.OKButtonClick( Sender : TObject ) ;
begin
   Close ;
end ;

procedure TdlgAbout.FormCreate( Sender : TObject ) ;
begin
   RichEditAbout.Lines.Add( #13#13 ) ;

   RichEditAbout.SelAttributes.Color := clBlack ;
   RichEditAbout.SelAttributes.Style := [ fsBold ] ;
   if PJVersionInfo.HaveInfo then
      RichEditAbout.Lines.Add(
         Application.Title +
         ' version: ' +
         PJVersionInfo.FileVersion + #13 )
   else
      RichEditAbout.Lines.Add( Application.Title ) ;

   RichEditAbout.SelAttributes.Color := clBlack ;
   RichEditAbout.SelAttributes.Style := [ fsBold ] ;

   RichEditAbout.Lines.Add( #13#13 +
      'This software and all the accompanying files are provided "as is" ' +
      'and without any warranties expressed or implied including but not ' +
      'limited to implied warranties of merchantability and fitness for a ' +
      'particular purpose.' + #13#13 +
      'In no event will the author be liable for any damages whatsoever ' +
      '(including without limitation, damages for loss of business profits, ' +
      'business interruption, loss of business information, or any other ' +
      'pecuniary loss) arising out of the use or inability to use this ' +
      'product.' ) ;

//   PJHotLabelMail.Caption := 'mailto:' + Application.Title + '@mediatronix.com' ;
//   PJHotLabelMail.Subject := Application.Title ;
end ;

end.

